Translate bin>hex and hex>bin again.
Translate bin>hex and hex>bin again.
Rate Translate bin>hex and hex>bin again.
(2(2 Vote))
var %temp = $1-
var %output
while (%temp) {
var %char = $chr($base($left(%temp,8),2,10))
%output = %output $+ $iif(%char == $chr(32),$chr(1),%char)
%temp = $right(%temp,-8)
}
return $replace(%output,$chr(1),$chr(32))
}
alias bin.encode {
var %output
var %temp = $1-
while (%temp) {
%output = %output $+ $base($asc($left(%temp,1)),10,2,8)
%temp = $right(%temp,-1)
}
return %output
}
Translate bin>hex and hex>bin again. Comments
No comments yet — be the first to post one!
Post a Comment